home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / ARexx.lha / ARexx / OCD.dopus5 < prev    next >
Text File  |  1996-05-02  |  1KB  |  35 lines
  1. /* OCD for Directory Opus 5
  2.    by Leo 'Nudel' Davidson for Gods'Gift Utilities
  3.    email: leo.davidson@keble.oxford.ac.uk  www: http://users.ox.ac.uk/~kebl0364
  4.  
  5. $VER: OCD.dopus5 1.2 (18.8.95)
  6.  
  7.    Note: Please don't confuse this with the CDO script!
  8.    Note: "CDOpus" is an assembler version of this script, with extra features.
  9.  
  10.    When run from a Shell, will put the DOpus5 screen to the front and
  11.    open a new lister with the same path as the Shell.
  12.  
  13.    To set up the command "OCD", add the following to your s:shell-startup:
  14. -------------------------------------------------------------------------------
  15. Alias OCD "rx DOpus5:ARexx/ocd.dopus5"
  16. -------------------------------------------------------------------------------
  17.  
  18.    v1.00 -> v1.01 - Now makes sure the DOPUS.1 port exists. (Ahem)
  19.     v1.01 -> v1.2 - Now uses Show() instead of ShowList(). (Thanks Stoebi)
  20.                     Style Guide compliant version numbering and $VER string.
  21.  
  22. */
  23. signal on error
  24.  
  25. If Show("P","DOPUS.1") Then
  26.     address "DOPUS.1"        /* Assumes there's only one copy. */
  27. Else Do
  28.     Say "DOPUS.1 port not found!"
  29.     Exit                /* If no DOPUS.1 port, exit */
  30.     End
  31. dopus front
  32. lister new pragma("d")
  33. Error:
  34. EXIT
  35.